#!/usr/bin/perl -w

BEGIN {
	push @INC,"/usr/local/cluster/lib/perl";
}

use XML::Simple;
use Data::Dumper;

die "Usage: dump.pl filename" if !defined($ARGV[0]);
open($fd,$ARGV[0]) or die;
$xml=XMLin($fd);
close($fd);
print Dumper($xml);
exit(0);
